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SCURCE STATEMENT 


TITLE C’MIP-ISIS INTASK’) 
7iLSISf#Intask: 


7cdoz 
; 


we Ne Ne Nt 


a? 


, DEFINE RQD 


7 
GERRCR 
GBUSY 
FIRSTG 
GOTSAB 
GFULL 
CISA8T 
FULLF 


TERROR 
TBUSY 

FIRSTT 
TOISAS 
TEMPTY 
DISABG 
EMPTYF 
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, DEFINE 


; 
CSENC 


SENTCK 


UNKNF 
ACTIVP 
INSUFM 
INACTP 
CEADP 
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+; DEFINE 


, 
MYIDS 
THIDEV 


vdeclare 
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NAME 

PUSELC 
EXTRN 
=X TRN 


THIS RCUTINE REMOVES CCMMANCS AND RESPCNSES FROM THE 
REQUEST QUEUE TO THIS DEVICE. 
ANC MIPRCV WHEN THEY ARE LCCKING FOR INPUT. 


IT IS CALLED BY MIPSND 


INTASK 

INTASK 

OUTRED-INRQD-WREPLY-/PTOMS 
RQTPTR/-ROGPTR-RLTPTR/-RLGPTR,-TRQGPT 


SINCLUDECSFIIMIP.EQU) 


RESULTS 
EQU 1H 
EQU 4H 
Eau 8H 
EQU TH 
EQU 20d 
eGu 40H 
=QU 80H 
ecu 1H 
EQU 4H 
=QU 8H 
EQU 10H 
EQU 20H 
EQU 40H 
ECU 80H 
MIP CMDS ANC RESPONSES 
c@U 70H 
ECU 80d 
EQU 81H 
EQU oar 
=QU 85H 
ZQU 67H 
cQU 89H 
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OutsRad word externel, 


InskQO word 
WSreply 


external, 


byte external, 
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55 
56 ,Genstint: 


57 + procedure external; 
538 vend Gentints, 
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63 -insStask: 
64 >; procedure public; 


é5 
66 7 declare Msgptr word, . 
67 +7 Msg based Msgptr structure (MipSmsg$format), 
é8 ;7 GERQEptr word, 
69 7 GSRQEntry based GERQEptr structure (Rqentrysformat), 
Lo 7 TSRQEptr word, 
71 => TSRQEntry based TERQEptr structure(Raqentryfformat), 
(23 Givetstate byte, , 
73 + TekeSdstate byte, 
74 7 Port byte, 
{> 9 Crd byte, 
76 7 Given boolean, 
7? 7+ Listbase word, . 
78 7 Listlink bhzsed Listbase word, 
79 7 Ttéresult bytes . 
80 INTASK: . 
Q1 + de while not (Takefstete:=RatSptr(.~InsRO0)),z 
doco cd0006 E 82 a9: = CALL RQTPTR | 
0003 1F 83 -RAR 
Q0C4 D8 B4 RC 
&5 + 1x 3 
&6 7 there is somethine in the queue, take it 
&7 7 xf 
&8 + if (TSRQEntry.~RecuestSid = CSENC then 
0005 7E &9 MOV Ay,M , GET REQUESTID 
0006 FE70 $0 CPI CSENC 
0008 c25D00 C 51 JNZ a7 
$2 + doz /* CSEND x*/ 
93 7 [x 
94 7 sea if socket is open and this device can get to the 
$5 > buffer 
96 7 x / 
Cf + Port = TERQEntry.DestSportsid, 
N0CeR 23 $8 INX H , INDEX TO REQUEST ID 
OOCE 56 99 MOV D+ i4 r SAVE SKC REQ ID 
o0CD 23 100 INX 4 > INDEX TC DEST DEVICE 
OQCE 23 101 INX H 7 AND SKIP TO PORT 
QOOF 7E 102 MOV Aci 7 LOAD PORT 
0010 4F , 103 MOY Cra > SAVE PORT IN C 
09011 23 104 INX H , INDEX TO SRC DEV AND SAVE IT 
0012 5€£ 15 MOV E,M 
0013 D5 106 PUSH C 7 SAVE SRC REQUEST ID ANC SRC OEVICE- 
10¢ if Port < Max$noSports then 


0014 FEO? 108 cpr 7H 
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/* 
the socket exists 
x] 
Msgptr = TSRQEntry.bufbaseadr (0), 
-MVI 2,SENTOK r SET UP RESPONSE 
PUSH 3 7 SAVE TRESULT/PORT 
INX H r get past srcdeEV 
MOV Crit 7 LOAD MSGPTR 
INX H 
MOY 37M 7 MSGPTR IN B/C 
INX Hd 7 to bufbaseadr (1) 
/x 
send it off to the user 
x/ 
Msgelink (0) = 0-7 
XCHG 
POP D 7 GET PORT 
PUSH D 
XRA A 
STAX a 
TNX | 3 , FILL LINK FIELO WITH ZEROES 
STAX 3 7 TO MAKE IT THE LAST ON THE PORT 
Listbase = .PortEtofmailbox(Port); 
MVE D,O0 
txI He PTCMB ‘ 
CAO Ec . . 
DAD D 
do while (Listlink <> 0), 
MOV A,l4 
INX H , SEE IF PTS TO ZERO CEOL) 
CRA M 
JZ a12 
Listbese = Listlink, 
MOV eas 
OCX H 
MOV - Ev itt 
XCHG 
end, 
JMP #11 
_ cListlink = Megptr, 
CCX B , GET BACK TO MSGPTR 
MOV M,3 
DCX - H 
MOV M,C 
end, 
JMP 213 
else TS$result = UNKNP 
MVI a2,UNKNP 
FUSH 3 , TRESULT SOULD BE ON TOS 
and, 
FALSEs 


Siven = 
1 


~ ae S ae _— om oak PP 2 see, a 


LSis-LTh -c08078085 


MIP-ISIS INTASK 


LOC 
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cdo00C 
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7 [x 
? now send the emd or ack/nak to the device 
? see if we can put the response into the RQ 
; xf 
7 if (Ragiptr¢(.OutERQ0) and GERROR) = O then 
e133 CALL TRQGPT 
RAR 
MVI A, DEADP , IF HAS ERROR THEN PROBLEM 
FOP 8 , GET TRESULT AND PORT 
POP C , GET REGID AND SRC DEVICE 
JC a? 
; do, 
, Ix 
, there is space in the RG 
7 x/ | | 
y; GERQEntry.RequestSid = TS$result; 
MOV M73 . y, PUT TRESULT AWAY 
; GSRQEntry-SRCEREQUESTSID = TERQEntry.~SrcSRequest$id; 
INX H 
MOV MD 
? GSRQEntry.-OesstDevSid = TS$RQEntry.~SrcSOevsid-s 
INX i 
MOY Mee 
INX D 
; GiveSstate = RlgSptr¢€.O0utSRQD), 
CALL RLGPTR 
7 Given = TRUE, 
JMP 28 
? end, 
; ends /* given loop */ 
? ends /* cmd processing */ 
; else 
; do; 
; /* 
; the raceived item is. a response, so do what needs to 
; Ibe done. 
; x] . 
? WEreply = TSRCEntry.Recquest$ids 
a7: STA WREPLY 
? ends /*response processingx/ 
; / * ‘ . \ 
, we have completed processing on this taken item, release 
? the R@. Si¢nal the device. 
7 xf 
; TakeSstate = R1itS$ptr(.In$SRQD); 
aes CALL RLTPTR 
; and; /* while loop */ 
JMP a9 
; */ 
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PUBLIC SYMBOLS 
INTASK C Q000 


SYMECLS 
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EXTERNAL 
INRQD ¢ 
TRQGPT CE 


USER SYMBOLS 
11 O02F 
a9 oo0c 
FIRSTG A 0008 
INACTP A 0087 
RLGPTR = COO 
TEMPTY A 002C 
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CSEND 
FULLF 
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BDISABG 
GDISAB 
MYIDS 
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0040 
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0080 
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DISA8T 
GERROR 
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